home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / text / print / dvi2pcl.lha / dim_to_dots.c < prev    next >
C/C++ Source or Header  |  1992-11-25  |  2KB  |  75 lines
  1. /* $Log:    dim_to_dots.c,v $
  2.  * Revision 0.8  92/11/23  19:46:39  19:46:39  bt (Bo Thide')
  3.  * Fixed resolution bug. Portable downloading. Added/changed options. PJXL color support
  4.  * 
  5.  * Revision 0.7  92/11/13  02:41:23  02:41:23  bt (Bo Thide')
  6.  * More bug fixes and improvements. Support for PaintJet XL
  7.  * 
  8.  * Revision 0.6  92/11/10  21:47:40  21:47:40  bt (Bo Thide')
  9.  * Bug fixes. Added -R option. Better font handling.
  10.  * 
  11.  * Revision 0.5  92/11/09  16:25:26  16:25:26  bt (Bo Thide')
  12.  * Rewrite of dospecial.c. Extended \special support
  13.  * 
  14.  * Revision 0.4  92/11/08  02:45:42  02:45:42  bt (Bo Thide')
  15.  * Changed to portable bit manipulations. Replaced strrstr for non-POSIX compliant C. Fixed numerous bugs. Added support for more \special's.
  16.  * 
  17.  * Revision 0.3  92/08/24  12:45:34  12:45:34  bt (Bo Thide')
  18.  * Fixed 8 bit (dc font) support.
  19.  * 
  20.  * Revision 0.2  92/08/23  17:28:55  17:28:55  bt (Bo Thide')
  21.  * Source cleaned up.  Changed certain function calls.  Removed globals.
  22.  * 
  23.  * Revision 0.1  92/08/22  23:58:47  23:58:47  bt (Bo Thide')
  24.  * First Release.
  25.  *  */
  26.  
  27. #include <stdio.h>
  28. #include "globals.h"
  29. #include "macros.h"
  30.  
  31. static char rcsid[] = "$Header: dim_to_dots.c,v 0.8 92/11/23 19:46:39 bt Exp $";
  32.  
  33. /*
  34.  * This routine converts a string which contains a floating number terminated
  35.  * by a dimension into the proper number of dots for resolution dots/inch.
  36.  */
  37. long dim_to_dots(data, resolution)
  38. char    *data;
  39. short    resolution;
  40. { 
  41.     double    val;
  42.     long    ival;
  43.     char    valstr[16];
  44.     char    dim;
  45.     char    dimstr[4];
  46.  
  47.     strcpy(valstr, data);
  48.     sscanf(valstr,"%lf %c",&val,&dim);
  49.  
  50.     switch(dim)
  51.     { 
  52.     case 'i':
  53.         ival = round(resolution*val);
  54.         break;
  55.     case 'c':
  56.         ival = round((resolution*val)/2.54);
  57.         break;
  58.     case 'm':
  59.         ival = round((resolution*val)/25.4);
  60.         break;
  61.     case 'p':
  62.         ival = round((resolution*val)/72.27);
  63.         break;
  64.     case 'd':
  65.         ival = round(val);
  66.         break;
  67.     default:
  68.         sscanf(data,"%*f%3s",dimstr);
  69.         fprintf(stderr,"Unknown dimension '%3s' in options or \\special\n",dimstr);
  70.         ival = resolution;
  71.         break;
  72.     }
  73.     return(ival);
  74. }
  75.